home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d762 / plotmap.lha / PlotMap / Unpack->Floppy < prev    next >
Encoding:
Text File  |  1992-11-21  |  1.0 KB  |  56 lines
  1. .Key  ""
  2.  
  3. lab GETDRIVE
  4. echo ""
  5. echo "  Which drive do you want to unpack to? [0,1,2,3] "  NOLINE
  6. failat 20
  7. skip >NIL: ? 
  8.  
  9. lab 0
  10.   set drive "DF0:"
  11.   skip HAVEDRIVE
  12. ;
  13. lab 1
  14.   set drive "DF1:"
  15.   skip HAVEDRIVE
  16. ;
  17. lab 2
  18.   set drive "DF2:"
  19.   skip HAVEDRIVE
  20. ;
  21. lab 3
  22.   set drive "DF3:"
  23.   skip HAVEDRIVE
  24. ;
  25.  
  26. lab HAVEDRIVE
  27. ask "  Do you have a two blank unformatted floppy disks ready?"
  28. if not WARN
  29.     echo ""
  30.     echo "  Try again when you do ..."
  31.     echo "  All Done.  Click close gadget to get rid of window."
  32.     endcli
  33. endif
  34.  
  35. echo ""
  36. sys:system/format drive $drive name PM_1 NOICONS
  37. lha -ab64 x PlotMap.lha PM_1:
  38. copy PlotMap.Doc PM_1:
  39. copy PlotMap.Doc.info PM_1:
  40. lha -ab64 x Maps.lha map.limits.bin coast.pnt island.pnt PM_1:
  41.   
  42. echo ""
  43. echo ""
  44. echo " Insert the second blank disk in drive $drive"
  45. echo ""
  46. sys:system/format drive $drive name PM_DATA  NOICONS
  47. lha -ab64 x Maps.lha country.pnt state.pnt river.pnt lake.pnt PM_DATA:
  48.  
  49. echo "  All Done.  Click close gadget to get rid of window."
  50. endcli
  51.  
  52.  
  53. endskip
  54. echo "  Invalid Drive Selection, Please try again!"
  55. skip back GETDRIVE
  56.